* emacs-lisp/cl-extra.el (cl-parse-integer): Fix last change.

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index c8404e0bc2d7deb23e34bcec003a7949c5820f49..e10844069ef7e3eeee044eab2b9d25b5d6739821 100644 (file)
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -415,7 +415,8 @@ as an integer unless JUNK-ALLOWED is non-nil."
        (skip-whitespace)
        (cond ((and junk-allowed (null sum)) sum)
              (junk-allowed (* sign sum))
-             ((/= start end) (error "Not an integer string: %s" string))
+             ((or (/= start end) (null sum))
+              (error "Not an integer string: `%s'" string))
              (t (* sign sum)))))))